home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ IE Restrictions 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-10-28  |  5.9 KB  |  125 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Internet Options dialog restrictions"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Disable Advanced Tab Changes"
  8. "DESCRIPTION 1"="This plug-in lets you disable any of the options on Internet Explorer's Internet Options dialog. To disable any item, clear the tick beside it; to enable it again, place a tick beside it."
  9. "DESCRIPTION 2"="As a rule, 'Allow' options affect all options on a tab, 'Enable' options only affect certain options on each tab, and 'Show' options hide the tab altogether."
  10. "DESCRIPTION 3"="NOTE: Disabling all of the last six/seven options (the 'show' options) will disable the Internet Options dialog altogether."
  11. "VERSION"="1.10"
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Based on several plug-ins by Ojatex [ojatex@aol.com] and SΘbastien Maurice"
  15. "CONTACTURL"="http://www.xteq.com/"
  16.  
  17. 'dwrd
  18. sP="HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\"
  19. IE="HKLM\Software\Microsoft\Internet Explorer\Version"
  20.  
  21. SUB Plugin_Initialize
  22.  Call Build_Display(1,"Advanced","Allow changes to Advanced tab")
  23.  Call Build_Display(2,"History","Enable History options [General]")
  24.  Call Build_Display(3,"Cache","Enable Temporary Internet Files Settings button [General]")
  25.  Call Build_Display(4,"Connection Settings","Allow changes to Connection tab")
  26.  Call Build_Display(5,"Certificates","Enable Certificates options [Content]") 
  27.  Call Build_Display(6,"Colors","Enable Foreground/Background Colors options [General]")
  28.  Call Build_Display(7,"Fonts","Enable Fonts options [General]")
  29.  Call Build_Display(8,"Languages","Enable Languages options [General]")
  30.  Call Build_Display(9,"Profiles","Enable Microsoft Profile Assistant button [Content]")
  31.  Call Build_Display(10,"Links","Enable Links Colors options [General]")
  32.  Call Build_Display(11,"HomePage","Enable Home page options [General]")
  33.  Call Build_Display(12,"Ratings","Enable Content Advisor options [Content]")
  34.  Call Build_Display(13,"Check_If_Default","Enable Check If Default Browser option [Programs]")
  35.  Call Build_Display(14,"Proxy","Enable Proxy Server options [Connections]")
  36.  Call Build_Display(15,"Autoconfig","Enable Automatic Connection Configuration options [Connections]") 
  37.  Call Build_Display(16,"Connection Wizard","Enable Internet Connection Wizard button [Connections]")
  38.  Call Build_Display(17,"CalendarContact","Enable Calendar and Contact List options [Programs]")
  39.  Call Build_Display(18,"Messaging","Enable E-mail, Newsgroups and Internet Call options [Programs]")
  40.  if RegReadValue(IE) < "5.5" then
  41.   Call Build_Display(19,"Wallet","Enable Microsoft Wallet button [Content]")
  42.  end if
  43.  Call Build_Display(20,"ResetWebSettings","Enable Reset Web Settings button [Programs]")
  44.  Call Build_Display(21,"AdvancedTab","Show Advanced Tab")
  45.  Call Build_Display(22,"CertifPers","Enable Personal Certificate options [Content]")
  46.  Call Build_Display(23,"CertifSite","Enable Site Certificate options [Content]")
  47.  Call Build_Display(24,"FormSuggest","Enable AutoComplete Form option [Content]")
  48.  Call Build_Display(25,"FormSuggest Passwords","Enable AutoComplete Passwords option [Content]") 
  49.  Call Build_Display(26,"GeneralTab","Show General tab")
  50.  Call Build_Display(27,"SecurityTab","Show Security tab")
  51.  Call Build_Display(28,"ContentTab","Show Content tab")
  52.  Call Build_Display(29,"ConnectionsTab","Show Connections tab")
  53.  Call Build_Display(30,"ProgramsTab","Show Programs tab")
  54.  Call Build_Display(31,"SecChangeSettings","Enable Security Level options [Security]")
  55.  Call Build_Display(32,"SecAddSites","Enable Sites button options [Security]")
  56.  Call Build_Display(33,"Connwiz Admin Lock","Enable Internet Connection Wizard [Connections]")
  57.  Call Build_Display(34,"Settings","Enable Temporary Internet Files options [General]")
  58.  Call Build_Display(35,"Accessibility","Enable Accessibility option [General]")
  59.  if RegReadValue(IE) > "6" then
  60.   Call Build_Display(36,"PrivacyTab","Show Privacy Tab")
  61.  end if
  62. END SUB
  63.  
  64. SUB Build_Display(NUMB,VALUE,DESC)
  65.  Call SetUIElement(NUMB,DESC)
  66.  s=RegReadValue(sP&VALUE)
  67.  If IsEmpty(s)=true OR s=0 then
  68.   Call SetUIElementEx(NUMB,true)
  69.  end if
  70. END SUB
  71.  
  72. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  73.  Call Apply_Option(1,"Advanced")
  74.  Call Apply_Option(2,"History")
  75.  Call Apply_Option(3,"Cache")
  76.  Call Apply_Option(4,"Connection Settings")
  77.  Call Apply_Option(5,"Certificates") 
  78.  Call Apply_Option(6,"Colors")
  79.  Call Apply_Option(7,"Fonts")
  80.  Call Apply_Option(8,"Languages")
  81.  Call Apply_Option(9,"Profiles")
  82.  Call Apply_Option(10,"Links")
  83.  Call Apply_Option(11,"HomePage")
  84.  Call Apply_Option(12,"Ratings")
  85.  Call Apply_Option(13,"Check_If_Default")
  86.  Call Apply_Option(14,"Proxy")
  87.  Call Apply_Option(15,"Autoconfig") 
  88.  Call Apply_Option(16,"Connection Wizard")
  89.  Call Apply_Option(17,"CalendarContact")
  90.  Call Apply_Option(18,"Messaging")
  91.  Call Apply_Option(19,"Wallet")
  92.  Call Apply_Option(20,"ResetWebSettings")
  93.  Call Apply_Option(21,"AdvancedTab")
  94.  Call Apply_Option(22,"CertifPers")
  95.  Call Apply_Option(23,"CertifSite")
  96.  Call Apply_Option(24,"FormSuggest")
  97.  Call Apply_Option(25,"FormSuggest Passwords") 
  98.  Call Apply_Option(26,"GeneralTab")
  99.  Call Apply_Option(27,"SecurityTab")
  100.  Call Apply_Option(28,"ContentTab")
  101.  Call Apply_Option(29,"ConnectionsTab")
  102.  Call Apply_Option(30,"ProgramsTab")
  103.  Call Apply_Option(31,"SecChangeSettings")
  104.  Call Apply_Option(32,"SecAddSites")
  105.  Call Apply_Option(33,"Connwiz Admin Lock")
  106.  Call Apply_Option(34,"Settings")
  107.  Call Apply_Option(35,"Accessibility")
  108.  Call Apply_Option(36,"PrivacyTab")
  109. END SUB
  110.  
  111. SUB Apply_Option(NUMB,VALUE)
  112.  b=GetUIElementEx(NUMB)
  113.  if b=true then
  114.   s=RegReadValue(sP&VALUE)
  115.   if IsEmpty(s)=false then
  116.    Call RegDeleteValue(sP&VALUE)
  117.   end if
  118.  else
  119.   Call RegWriteValue(sP&VALUE,1,2)
  120.  end if
  121. END SUB
  122.  
  123. SUB Plugin_Terminate
  124. END SUB
  125.